home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / SS_DEMO.PRG < prev    next >
Text File  |  1991-05-20  |  3KB  |  93 lines
  1. *.............................................................................
  2. *   Program Name: SS_DEMO.PRG       Copyright: HRF Associates, Inc.
  3. *   Date Created: 06/10/91           Language: Clipper
  4. *   Time Created: 16:35:50             Author: Bob Fogle
  5. *.............................................................................
  6. * NOTE: The following code was written for demo purposes, not for efficiency.
  7. *
  8. mLASTCOLOR  = SETCOLOR()
  9. mLASTSCREEN = SAVESCREEN(00,00,24,79)
  10. mLASTCURROW = ROW()
  11. mLASTCURCOL = COL()
  12. end_flag = .F.
  13. SET wrap ON
  14. SET message TO 23 center
  15.  
  16. DO WHILE .T.
  17.   DO MNUss
  18.   IF end_flag
  19.     @ mLASTCURROW-2,mLASTCURCOL
  20.     RESTSCREEN(00,00,24,79,mLASTSCREEN)
  21.     SETCOLOR(mLASTCOLOR)
  22.     RETURN
  23.   ENDIF
  24. ENDDO
  25.  
  26. PROCEDURE MNUSS
  27. LOCAL mCHOICE :=1
  28. SETCOLOR(if(iscolor()=.F.,NOCOLOR,"BG+/B, B/W+,,,W+/B"))
  29. CLEAR
  30. @ 00,00 TO 24,79 DOUBLE
  31. @ 00,25 SAY " SEGUE SUPPLEMENT, BINDERY "
  32. xx=3
  33. @  xx, 3 SAY "Select SEGUE SUPPLEMENT FUNCTION to demo:"
  34. xx=xx+2
  35. @ xx,10 PROMPT "Exit"         MESSAGE "Return to Main Menu"       //1
  36. xx=xx+1
  37. @ xx,10 PROMPT "USRAD_()"     MESSAGE "SS Add User"               //23
  38. xx=xx+1
  39. @ xx,10 PROMPT "USRDL_()"     MESSAGE "SS Delete User"            //24
  40. xx=xx+1
  41. @ xx,10 PROMPT "USRSLST_()"   MESSAGE "SS List Users"             //25
  42. xx=xx+1
  43. @ xx,10 PROMPT "USRGRPLST_()" MESSAGE "SS List User's Groups"    //26
  44. xx=xx+1
  45. @ xx,10 PROMPT "USRINGRP_()"  MESSAGE "SS Is User In Group"       //27
  46. xx=xx+1
  47. @ xx,10 PROMPT "GRPAD_()"     MESSAGE "SS Add Group"              //28
  48. xx=xx+1
  49. @ xx,10 PROMPT "GRPDL_()"     MESSAGE "SS Delete Group"           //29
  50. xx=xx+1
  51. @ xx,10 PROMPT "GRPSLST_()"   MESSAGE "SS List Groups"            //30
  52. xx=xx+1
  53. @ xx,10 PROMPT "GRPUSRLST_()" MESSAGE "SS List Group's Users"    //31
  54. xx=xx+1
  55. @ xx,10 PROMPT "GRPUSRAD_()"  MESSAGE "SS Add User To Group"      //32
  56. xx=xx+1
  57. @ xx,10 PROMPT "GRPUSRDL_()"  MESSAGE "SS Delete User From Group" //33
  58. xx=xx+1
  59. @ xx,10 PROMPT "SUPLST_()" MESSAGE "SS List Users w/Supervisor Security" //34
  60. xx=xx+1
  61.  
  62. MENU TO mCHOICE
  63. //
  64. DO CASE
  65.   CASE mCHOICE = 0 .or. mCHOICE = 1
  66.     end_flag=.T.
  67.   CASE mCHOICE =  2
  68.     DO USRAD
  69.   CASE mCHOICE =  3
  70.     DO USRDL
  71.   CASE mCHOICE =  4
  72.     DO USRSLST
  73.   CASE mCHOICE =  5
  74.     DO USRGRPLST
  75.   CASE mCHOICE =  6
  76.     DO USRINGRP
  77.   CASE mCHOICE =  7
  78.     DO GRPAD
  79.   CASE mCHOICE =  8
  80.     DO GRPDL
  81.   CASE mCHOICE =  9
  82.     DO GRPSLST
  83.   CASE mCHOICE = 10
  84.     DO GRPUSRLST
  85.   CASE mCHOICE = 11
  86.     DO GRPUSRAD
  87.   CASE mCHOICE = 12
  88.     DO GRPUSRDL
  89.   CASE mCHOICE = 13
  90.     DO SUPLST
  91. ENDCASE
  92. RETURN
  93.